home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -jumping man (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  895 b   |  24 lines
  1. 10 print"[147][142][150]                                        "
  2. 20 poke53281,0:poke53280,0:f=16
  3. 30 s=54272:forl=stos+24:pokel,0:next:pokes+1,60:pokes+5,219:pokes+15,28
  4. 32 pokes+24,15
  5. 50 p$(1)=" [213][195][201] ":l$="     "
  6. 52 p$(2)="[215][202][195][203][215]"
  7. 54 p$(3)="[202][195][219][195][203]"
  8. 56 p$(4)=" [213][177][201]"
  9. 60 p$(5)=" [194] [194]"
  10. 62 p$(6)=" [215] [215]"
  11. 65 print"[153]":fora=1to6:printtab(f);p$(a):next
  12. 70 a=int(rnd(1)*12):ifa<4andf>1thenj=-1:goto300
  13. 75 ifa<5andf>1thenj=-1:goto300
  14. 80 ifa>7andf<34thenj=1:goto300
  15. 85 ifa=5ora=6then315
  16. 90 goto70
  17. 300 pokes+24,0:print"[153]":fora=1to6:printtab(f);l$:next:f=f+j:j=0:pokes+24,15:goto65
  18. 315 fora=6to3step-1:print"":pokes+24,0:forb=1toa:print"";:next:pokes+24,15:forb=1to6:printtab(f);l$
  19. 320 next:pokes+24,0:print"":forb=1toa-1:print"";:next:pokes+24,15:forb=1to6:printtab(f)p$(b):next:next
  20. 325 print""tab(f);l$
  21. 330 fora=2to5:print"":pokes+24,0:forb=1toa:print"";:next:pokes+24,15:forb=1to6:printtab(f);l$
  22. 340 next:pokes+24,0:print"":forb=1toa+1:print"";:next:pokes+24,15:forb=1to6:printtab(f)p$(b):next:next
  23. 350 pokes+4,18:pokes+24,0:pokes+24,15:goto70
  24.